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INTERACTIVE 


EDITOR’S CORNER FOR YOUR INFORMATION 


THIS MONTH’S COVER ... 

. . . has a message directed to those of you who can understand Blissym- 
bolics (a graphics-based communications system intended for non-speak¬ 
ing persons). The message means “please read this newsletter. ” See the 
article on page 3 for more information on Blissymbolics and how your 
AIM 65 can be used with this graphics based language. 


APP. NOTE UPDATE 

Remember the application note I mentioned in the last issue (PRINTER 
CONTROL WITH THE R6522 VIA R6500 N21) which showed how 
to interface a low-cost printer mechanism to the R6522? Well, we’ve 
recently been informed by the company that makes the mechanism that 
there have been some changes to the units that could require some 
changes to the software driver routines in our applications notes. If you 
are planning to use one of their printer mechanisms, be aware that they 
have changed them and now have new model numbers. Better contact 
them for more information. 

Two Day Corporation 
Executive Mart 
203 E. Main 
Riverton, WY 82501 


AIM 65/ 

MICROPRODUCTS 

APPLICATIONS 

ENGINEER 


DEVICE APPLICATIONS 
ENGINEER 


SERVICE INFORMATION 


LITERATURE & 

DISTRIBUTOR/DEALER 

INFORMATION 


(714) 632-0975—Use this number 
when you have technical 
questions concerning the AIM 65 
system or are having difficulty 
interfacing to the AIM 65. 

(714) 632-3860—Use this number 
when you have technical 
questions concerning individual 
6500 family devices whether or 
not they are on the AIM 65. 

(800) 351-6018—Call this 
number when your AIM 65 is 
broken and needs repair. Their 
address is: 

AIM 65 REPAIR 

Rockwell International 

6 Butterfield Trail Dr. 

El Paso, TX 79924 

(714) 632-3729, (800) 854-8099 
(in California call (800) 422- 
4230)—Call one of these numbers 
when you need literature for a 
certain product, information on 
your nearest Rockwell dealer/ 
distributor or to request a 
particular application note. 


AIM 65 REPAIR CHARGES 

Effective immediately the flat rate charge for out-of-warranty repairs on 
the AIM 65 will be $49.80. 

In cases where there is extensive damage to the machine, as when the 
power has been hooked up incorrectly, the flat rate charge is not used. 
Instead, an estimate is sent to the customer for approval. 

Follow the procedures outlined in the AIM 65 User Manual for returning 
your unit for repair. 



Editor 


COPYRIGHT 1981 ROCKWELL INTERNATIONAL CORPORATION 

Rockwell does not assume any liability arising out of the application or use of any 
products, circuit, or software described herein, neither does it convey any license 
under its patent rights nor the patent rights of others. Rockwell further reserves 
the right to make changes in any products herein without notice. 


SALES INFORMATION (714) 632-3698—Call this 

number when you need price 
information for AIM 65 or 
Microflex 65 accessories or other 
Rockwell products. 

SPARE PARTS (714) 632-2190—Call this 

number when you want to order 
spare parts for your AIM 65. (The 
minimum cash order is $10.) 


To keep receiving this newsletter, subscribe now! The cost is $5 for 6 
issues ($8 overseas). (NO CASH OR PURCHASE ORDERS WILL BE 
ACCEPTED) (Payment must be in U.S. funds drawn on a U.S. bank). 

All subscription correspondence and articles should be sent to: 

EDITOR, INTERACTIVE 
ROCKWELL INTERNATIONAL 
POB 3669, RC 55 
ANAHEIM, CA 92803 
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In the photo, Norman Potts, a 32-year-old resident of the Northwest School is using the AIM 65 to compose a message. Norman is nonverbal, 
retarded and physically handicapped. He has learned over 50 symbols and words using the AIM 65 with Blissymbolics and has become quite 
skilled in playing a target practice game. 


ABSTRACT 

An inexpensive microcomputer based prosthetic communication system 
designed specifically to meet the needs of functionally non-verbal phys¬ 
ically handicapped users is described. Computer/“real world” interfac¬ 
ing and BASIC program are explained. Educational and recreational 
benefits of microcomputer systems are examined and future plans outlined. 

BACKGROUND 

The microcomputer revolution has provided the handicapped with an ex¬ 
citing and extremely powerful new tool. Today a sophisticated computer 
system readily adapted for the handicapped user can be purchased for 
less than $700.00. Affordable microprocessor based “intelligent” con¬ 
sumer products are appearing in increasing numbers and hold tremen¬ 
dous promise for reducing dependency. A major frustration facing to¬ 
day’s habilitation/rehabilitation engineer is finding enough time to explore 
and keep up with current technologies. Cost and availability are in most 
cases no longer top priority concerns. 

The Northwest Louisiana State School Habilitation Engineering Depart¬ 
ment is investigating the potential of microcomputers for multiply hand¬ 
icapped, severely and profoundly retarded persons. As of this writing, 
all efforts have focused on using the Commodore PET 2001 -8 and Rock¬ 
well AIM 65 microcomputers. Both machines are the personal property 
of a school employee and most programs and hardware modifications 
have been developed independently of state employment. 


INTERACTIVE 


COMMUNICATIONS FOR 
THE HANDICAPPED 

. . . using the AIM 65 


Sam Caldwell 

Director of Habilitation Engineering Services 
Northwest Louisiana State School 


(EDITOR'S NOTE: Here's a great example of how high technology can 
be used to make life easier for the handicapped community. This article 
was presented as a paper at the International Conference of Rehabilita¬ 
tion Engineering, and is being reprinted with the permission of the pub¬ 
lishers. It was written by Sam Caldwell, Director of Rehabilitation En¬ 
gineering Services at the Dept, of Health and Human Resources at the 
Northwest Louisiana State School. 

In further conversations with Mr. Caldwell, he pointed out that even 
though most of the work being done to support the handicapped has been 
funded by the government, and is therefore public domain, very little in 
the way of technical information has been published to aid others in their 
work. I would like to commend Sam on his openness and hope that others 
in this field take the hint and start letting us in on all the work that is 
being financed with our tax dollars.) 
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The full typewriter-style keyboard, 20 character alphanumeric LED dis¬ 
play, dual cassette recorder interface, on-board 20 column thermal 
printer, 8K BASIC and no-fuss interfacing make the AIM 65 an excellent 
candidate for habilitation/rehabilitation applications. A total package 
system complete with enclosure, power supply and basic ROM can be 
had for as little as $600.00. 

INTERFACING 

Most habilitation/rehabilitation applications require the addition of ex¬ 
ternal switches tailored to the physical abilities of the handicapped user 
and necessitate real-world/computer interfacing. The AIM 65 and PET 
computers both have extremely flexible interface hardware on-board 
making child’s play of what can easily become a stumbling block when 
working with other machines. All connections to the AIM 65 are made 
via its user-dedicated 6522 versatile interface adapter chip (VIA). A min¬ 
imum configuration requires only two connections (See Figure 1). Sound 
requires adding two more wires and an inexpensive speaker-amplifier. 
If the control switch exposes the handicapped user to possible electrical 
contact with the computer, a simple battery powered optical isolator or 
reed relay can be inserted between the control switch and 6522 input/ 
output port (See Figure 2). 

At the conclusion of this article is a listing of an AIM 65 program de¬ 
signed to enhance communication for speech-handicapped persons. The 
system consists of an AIM 65 microcomputer with4K of RAM memory, 
8K ROM BASIC, power supply, 44 pin edge connector, compatible cas¬ 
sette tape recorder, momentary contact SPST switch, battery powered 
speaker-amplifier and Blissymbolics Communication Foundation, 10 x 
10, 100 vocabulary Bliss board. (Blissymbolics Communication Insti¬ 
tute, 350 Rumsey Rd., Toronto, Ontario, Canada M4G 1R8). Other 
communication boards and vocabularies may, of course, be used provid¬ 
ing responses can be identified via vertical and horizontal coordinates 
and the vocabulary listed in data statements starting at line 1000 are re¬ 
placed accordingly. 


SPST 



r H Radio Shack cat. #277-1008 


I_I Figure 1 

CONTROL SWITCH/AMPLIFIER CONNECTIONS 

selection, displays the English equivalent of the symbol in the approxi¬ 
mate center of the LED panel and resets to numeric scanning. If the user 
wishes to print a displayed word, he activates the control switch when 
either the 9,A or 10,A coordinates are displayed. In the special case of 
“help” an auditory alert is sounded until the user again presses the con¬ 
trol switch. 

The basic coordinate scanner program is being expanded to provide en¬ 
hanced editing and print formatting capabilities. Future plans include the 
development of a rechargeable battery power supply and a rugged enclo-,^^ 
sure suitable for wheelchair mounting. 

As of this time, two functionally non-verbal residents, classified as either 
profoundly or severely retarded and physically handicapped, have learned 
to use the AIM 65 communication scanner. The computer generates an 
immediate translation and written record of the user’s responses. Early 
observations suggest that instantaneous translation of Bliss into English 
reinforces the learning of English. The potential of this system as an ed¬ 
ucational tool beyond establishing viable communications appears great. 


PROGRAM OPERATION 

Operation is simple and straightforward. When the program is run, the 
computer responds with “SCAN RATE?”. The number entered in re¬ 
sponse to this query will determine the speed at which vertical and hor¬ 
izontal coordinates are displayed. The larger the number the slower the 
scan rate. Values between 50 and 60 have proved workable for most of 
our physically handicapped users. Once the scan rate has been entered 
and the RETURN key pressed, the numbers one through ten are alter¬ 
nately displayed on the left side of the LED panel and a “beep” is emit¬ 
ted through the attached speaker amplifier. 

If, for example, the user wished to communicate the word “help”, he 
would first locate the corresponding symbol and activate the control 
switch when the appropriate numeric and alphabetic coordinates are dis¬ 
played, i.e., 7,D. Therefore, when the number 7 is displayed, the user 
momentarily closes the control switch. The computer responds by emit¬ 
ting a high-frequency “beep” and beginning sequential display of the 
letters A-J. When D is presented, the user again closes the control 
switch. The computer generates a short tone signaling recognition of his 


In addition to practical uses in communication and education, the AIM 
65 and PET computers have been very well received as a source of en¬ 
tertainment. The flexibility and accessibility of these machines allow the 
development of both individual and group games which can accommo¬ 
date a wide range of physical and mental limitations. The computer 
serves as an equalizer—making it possible, in some cases for the first 
time, for handicapped persons to play games with one another without 
outside assistance. 



Figure 2 SAFETY ISOLATION 




The 100 vocabulary Bliss Board is reprinted here through the courtesy of the Blissymbolics Communication Foundation. 


A 

B 

C 

D 

E 

F 

G 

H 

1 

J 

zero 

one 

two 

three 

four 

five 

six 

seven 

eight 

nine 

0 

1 

2 

3 

A 

5 

6 

7 

8 

9 

hello 

question 

1, me 

(to) like 

happy 

action 

food 

pen, 

friend 

animal 





v 

indicator 


pencil 



o ** 

m 

li 

6+' 

©T 


O 

\ 

1©+.' 

m 

goodbye 

why 

you 

(to) want 

angry 

mouth 

drink 

paper, 

God 

bird 








page 

a 


°<—> 

?► 

I 2 

©<> 

x©« 

O 


□ 

n 

T 

please 

how 

man 

(to) come 

afraid 

eye 

bed 

book 

house 

flower 

'© 

? A 

A 

—>| 

CU(? 

O 

M 

m 

© 

? 

thanks 

who 

woman 

(to) give 

funny 

legs and 

toilet 

table 

school 

water, 






feet 




liquid 

O© 

? 1 

A 

© 

©To 

zV 

Ja 

rn 

©©O 


much, 

what thing 

father 

(to) make 

good 

hand 

pain 

television 

hospital 

sun 

many 










V 

X 

?□ 


ZX 

© + ' 

xl 

©/N 

□°2^ 

At 

0 

opposite 

which 

mother 

(to) help 

big 

ear 

clothing 

news 

store 

weather 

meaning 










l 

?- 

* 

A 

I 

2 

ft 

<2 


© 

music 

where 

brother 

(to) think 

young 

nose 

outing 

word 

showplace, 

day 









theatre 


2d 

? 

^2 

A 

2 

z 


-<2 

©0 

Q 

print 

when 

sister 

(to) know 

difficult 

head 

motor car 

MEM 

room 

weekend 

message 



A 




■ 




? © 

^2 

O 

-i 

© 

bS 


□ 

Q7+1 


how much, 

teacher 

(to) wash, 


name 

wheelchair 

toy 

street 

birthday 


many 


bathe 

1 








1©Q 

e? 

D 

X 

la 

□ 

> 

<3 



A 

B 

C 

D 

E 

F 

G 

H 

1 

J 


1 

2 

3 

4 

5 

6 

7 


8 

9 

10 


® Blissymbolics Communication Institute 1981. 
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INTERACTIVE 


100 REM#HELP 
105 POKE 40963rO 
110 S*="ABCDEFGHIJ" 

115 INPUT"SCAN RATE"y SR 
120 FQRX-lTOl0 
130 F0RY=1TQ10 
.1.40 READ D$(X y Y) 

1.50 NEXTY! NEXTX 
1.60 REM SCAN ROUTINE 
1.70 F0RX~1T010 
1.80 PRINTXTABC 5)!...$ 

1.85 G0SUB2100 
1.90 F0RZ----1.T0SR 
200 P=PEEK ( 40961.) 

21.0 IF P < 2 55 THEN G 0 S U B2000 

220 IFP<255THEN250 

225 NEXTZ 

240 NEXTX 

245 GOT01.70 

250 REM Y COORDINATE 

260 F0RY ■-1. T01.0 

265 M*=L* 

270 PRINTMID$(S$yYy1) 

275 G0SUB2100 

280 Z=Z +1JP=PEEK<40961) 

290 IFP<255THEN350 
300 IFZCSRTHEN280 
31.0 Z«0 
340 NEXTY 
345 GOTO250 
350 I...$ :::: D$ ( X v Y) 

355 G0SUB2000 

360 IFI... $ = "." THENPRI NT ! M$ }I...«=M $ 

3 6 2 IF L * « “ H E I... P " 7 H E N G 0 S U B 2 2 0 0 
365 GOT 0 . 1 . 70 

1.0 0 0 D A1 A 0 y 1. y 2 y 3 y 4 y 5 y 6 v 7 y 8 y 9 
1.0 0 5 D A T A H EI... L 0 y ? r I / M E y I... IK E v H A P P Y 
. 1 . 010 D A T A A C T 1 0 N y F 0 0 D y P E N C 1 1... 

1.01.2 DAT AFR1END y ANI MAI.. 

1.01.4 DATAG00DBYE y WHY * Y0U v WANT 
1015 D A T A A N G R Y y M 0 U T H y D R 3.' N K y P A P E R 
1.017 DA TAG0D y BIRD y PI...E AS E y H 0 W y M A N 


1.0 20 D A T A C 0 M E y A F R AID y E Y E y B E D y B 0 0 K 
1.0 22 D A T A H 0 LJ S E y F L 0 U E R S y T H A N K S 
1025 DA T A WH0 y W 0 MA N yG10 E y F U N N Y yLE G S 
10 2 7 D A T A T 01L E T y T A B I... E 

1030 D A T A S C H 0 01... y W A T E R r M LJ C H y W H A T y F A T H E R 

10 3 5 D A T A M A K E y G 0 0 D y H A N D y P AIN 

1.0 37 DATA T E L. E VIS10 N y H 0 S PIT AI... y S tJ N 

1.04 0 DATA 0 P p 0 SIT E y W HIC H y M 0 T H E R y H E L P 

104 3 DA T A BIG y E A R yCL0 THINGy N E WS 

1.0 4 5 D A T A S T 0 R E y W E A T H E R y M U SIC y W H E R E 

10 4 7 D A T A B R 0 T H E R y T HIN K 

1050 D A T A Y 0 LJ N G y N 0 S E y 0 L) T1N G y Ul 0 R D 

10 5 3 D A T A T H E A T E R y D A Y r .-. 

10 5 5 D ATAUHENyS IS T E R y K N 0 W y DIF FIC LJ I... T 
1.058 DATAHEADyCAR 

10 6 0 D A T A I... IG H T y R 0 0 M y U E E K E N D y. 

10 6 3 DATA H0U M A N Y yTEACHER 
1065 DATAUASHy H 0 T y N A M E y W H E E I... C H AIR 
10 6 7 D A T A T 0 Y y S T R E E T y B I R T H D A Y 
2000 REM ALERT 
2005 Z=0 

201.0 POKE40971. y .1.6 
2020 P0KE40970y15 
2030 P0KE40968 >• 200 
2 0 4 0 F 0 R LJ = 1T 05 0 0: N E X T 
2050 P0KE40968 y 0 
2060 RETURN 
2100 REM BEEP 
21.10 POKE40971 y 16 
21.20 F-‘LIKE40970 y 15 
2125 FORM-1 TO10 
2130 P0KE40968 y100 
213 5 F 0 R F = 1T 0 2 0 t N E X T F 
21.40 P0KE40968 y 0 
21.50 NEXTV 
2.160 RETURN 

2200 P0KE40968 y 65 

2 2 0 5 P RIN T T A B ( 5 > " H E I... P " 

221.0 P=PEEK< 40961) 

2 2 2 0 IF P=2 2 5 T H E N 2 210 
2230 POKE:!40968 y 0 
2240 RETURN 
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’rogram Remarks 

1. Line 105: Sets the A data direction register to input 

mode. 

2. Line 110: The S$ string variable defines the horizon¬ 

tal coordinates and may be replaced by any 
set of 10 alphanumeric characters. For ex¬ 
ample, “012 3 4 5 6 7 8 9". 


INDUSTRIAL SYSTEM SPOTLIGHT 

EDITOR'S NOTE: The Industrial, and OEM (Original Equipment Man¬ 
ufacturers), uses for AIM 65 are many and varied. If you have developed 
a system around the AIM 65 that is used in an industrial or OEM appli¬ 
cation and would like it featured in INTERACTIVE, drop me a line with 
some of the details and a photo. 

the Editor 


3. Lines 120-150: Reads and defines D$ string variables listed 

in data statements starting at line 1000. 

4. Line 180: Displays the L$ string variable which holds 

English translation of selected Bliss symbol. 

5. Lines 190-225: Looks at A side of the VIA. If the control 

switch is closed, pin 2 is brought low, the 
variable P is set to 251, the LS string is de¬ 
fined by the current X, Y values and the 
“beep" subroutine is called. 

6. Line 360: If the L$ string array is either 9,1 or 10,1 

(i.e.,—) the M$ string is printed. The M$ 
string was set equal to the preceeding L$ 
string variable in line 265. The L$ string 
is also set equal to MS to ensure that the 
current English translation is displayed. 

A SHORT HISTORY 
OF BLISSYMBOLICS 

Charles K. Bliss was intrigued by the way the Chinese people could 
communicate with each other across boundaries of dialect by using a 
set of standardized symbols. He wondered if someone could invent a 
language system that could surmount cultural barriers and be easily 
learned. 

Bliss worked on such a language system while he lived in Australia and 
by 1949 was able to publish Semantography, the book that provides the 
explanation for his system of pictographs and ideographs. He intended 
that his symbols (known as Blissymbolics) be used as a universal 
language. 

In 1971, a group at the Ontario Crippled Children's Centre started 
using Blissymbolics successfully with cerebral palsied, school age, non¬ 
speaking children. The Blissymbolics Communication Institute was then 
established as an international, non-profit service organization to 
maintain symbol standards and to provide training and materials for the 
people who apply Blissymbolics with non-speaking people. 

For more information, contact BCI at 350 Rumsey Rd., Toronto, 
Ontario, Canada M4G 1R8 or call them at (416) 425-7835. 


Intended for use by power companies as a remote data acquisition sys¬ 
tem, the MMS-9 MET Measurement System by Dutec Inc. (4801 
James McDivitt Rd., Jackson, MI 49204) uses an AIM 65 as its central 
processor. 

The MMS-9 is equipped with sensor inputs to monitor meteorological 
and pollution data around the power generator and either store the re¬ 
corded data (such as wind speed, direction, temperature, and sulphur 
dioxide content) or send it to another computer for processing. Twenty 
analog input channels are included in the basic unit. 

According to John Dute, president of Dutec, the MMS-9 can, with the 
proper sensors, be used to measure wind dispersion around nuclear power 
plants. Mr. Dute goes on to mention that the major advantages of this 
system over the previous strip chart and magnetic recorder method of 
storing the measurements are cost, and having a real-time access to the 
data. “It's even possible for an agency like the Nuclear Regulatory Com¬ 
mission to have up-to-the-minute field measurements of every nuclear re¬ 
actor installation as close as their phone," Mr. Dute added. 

Mr. Dute further stated that previous “intelligent" solutions to solving 
this problem consisted of mini-computers which cost many times what 
the AIM 65 based system can sell for. 


Here's an application where AIM 65 does the job cheaper and better than 
previous solutions. 



Courtesy of Dutec Inc. 
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UNEAR PROGRAMMING 
IN BASIC 

George J. Sellers 
Cumberland, MD 

Here is a Basic program you might find of interest for solving linear pro¬ 
gramming problems using the revised simplex method. This version will 
maximize the objective function with all constraints in the form < = a 
constant. The program dynamically allocates the arrays used and will 
solve problems of sizes up to those shown in the table for a4K AIM 65. 


ROW SIZE 


COLUMN SIZE 


ARRAY SIZE 

3x2 

4x3 

7x2 

2X5 

3x4 


RUN TIME 

5.05 sec. 
9.03 sec. 
18.72 sec. 
4.51 sec. 
9.43 sec. 


The input is organized with the coefficient of each constraint equation 
being a row of a matrix “A” which is called the coefficient matrix. The 
right side of the equations are organized into a column which is called 
the constant matrix “B”. The solutions are also organized into a column 
which is called the solution matrix “X”. The objective function is a row 


A good overview of many applications of linear programming in man 
agement as well as other areas on management science can be found in 
the book PRINCIPALS OF MANAGEMENT SCIENCE (2nd ed.) by 
H. M. Wagner (published by Prentice-Hall, NJ). 

Linear programming forms the basis of many important types of prob¬ 
lems that require optimization by maximizing or minimizing some func¬ 
tion (this program solves only for maximums but, by using the proce¬ 
dures for inequalities, the input data can be rearranged so that 
minimization problems can also be solved). 

RUN 

ENTER IM & JM? 4 

?? 3 



2 

3 

4 

5 

6 

7 

8 9 

COL 

1 

ROW 

1 

? 

-2 

2 

X 

X 

X 

X 

X 

X 

X X 

COL 

1 

ROW 

2 

9 

1 

3 

X 

X 

X 

X 

X 

X 

X 

COL 

1 

ROW 

3 

9 

2 

4 

X 

X 

X 

X 

X 



COL 

1 

ROW 

4 

9 

1 

5 

X 

X 

X 

X 




COL 

2 

ROW 

1 

9 

3 

6 

X 

X 

X 





COL 

2 

ROW 

2 

9 

-2 

7 

X 







COL 

2 

ROW 

3 

9 

1 

8 








COL 

2 

ROW 

4 

9 

1 

9 








COL 

3 

ROW 

1 

9 

0 

Representative run 

times for sample problems are shown 

in the following 

COL 

3 

ROW 

2 

9 

-4 

table: 








COL 

3 

ROW 

3 

9 

1 









COL 

3 

ROW 

4 

0 

5 


CHECK INPUT? YES 
ROW 1 -2 3 

ROW 2 1 -2 

ROW 3 2 1 

ROW 4 1 1 

CHANGE INPUT? NO 
B( 1 )? 2 
B( 2 )? 5 
B( 3 )? 6 
B( 4 )? 10 
C( 1 )? 2 
C( 2 )? -3 


0 

-4 

1 


matrix “C”. 

Thus, the equations for each constraint are in the form A*X< =B in ma¬ 
trix algebra. The data are entered into the program by way of the prompts 
for each column. The coefficient matrix can then be printed out to verify 
the accuracy of the input and corrections made if necessary. Finally, the 
constant matrix can be input and the constants for the objective function 
are entered. In a short time the solution matrix is printed. 

If you’re not familiar with matrix notation, study the SCHAUM’S OUT¬ 
LINE SERIES on LINEAR ALGEBRA by S. LIPSCHUTZ (McGraw- 
Hill, New York). 


C( 3 )? 3 

MAX= 9.11111112 
SOLUTION 
1 2.22222222 
2 0 

3 1.55555556 

SLACK VARIABLES 

1 6.44444444 

2 9 

3 0 

4 0 


0 REMLINEAR PROGRAMMING 
5 INPUT"ENTER IM & JM"5IMvJM i N=IM+JM 

.1.0 DIMACIM? JM) *B<IM> ?C( JM) > X(JM ) * S< IM> > AP< IM>N) yCP(N) j/XP<N> 
20 DIMBI< Ny N)v AR < N) r Y<IM)*LC< N)>YY <IM > y H <IM)vLB(IM) 

40 F OR J=“ 1. TO JM t FOR I = : 1T 01M ♦ PR I NT " COL "Jr "ROW "SI? 

50 INPUTA(I t J) t NEXTI t NEXTJ 
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60 INPUT"CHECK INPUT"5 AN$?IFAN$="NO"G0T0100 
70 FORI = 1TOIM t PRINT tPRINT■ROW *515" “5 

75 FORJ=ITOJM JPRINTA< I y J > 5 

79 NEXTJ i NEXTIJ PRINT 

80 INPUT * CHANGE INPUT * 5 AN* l IFAN*="NO"G0T0100 

85 INPUT"ROWy COL y 8. NEW VALUE" 51 y J v A < I r J ) i 60T080 

100 FORI-lTOIM♦PRINT"B <"515 * ) " 5 

110 INPUTB <I>♦NEXTI 

120 F0RJ~1T 0 J M ♦ P RIN T" C ("5J5') " 5 

130 INPUTC< J) ♦ NEXTJ* G0SIJB200 

150 IFIB-.1.G0T0160 

155 PRINT*UNBOUNDED" i END 

160 F“0 t F0RJ-1T0JM*F=F+C< J)#X< J)♦NEXTJ t PRINT"MAX ="5 F 
170 PRINT" SOLUTION “ ? F0RJ==1T0JM * PRINT J5 X < J) J NEXT J 
180 PRINT"SLACK VARIABLES" l FORI=1TOIM t PRINT!5S<I)*NEXTI 
190 END 

200 FORJ-1TOJM J LC < J >=0 t CP < J)~C(J) t XP(J)“0 
2.10 F 0 RI * 1T 01M t A P < 1 t J) == A (I y J ) t N E X T1 1 N E X T J 

220 FORJ=1TOIM ♦LC(JM+J)=J i CP < JM+J)~0♦XP < JM+J)=B(J)J LB(J)- J+JM 
230 F0RI-1T0IM*IFI=JTHENBI(I»J)»lJG0T0260 
250 BI(IvJ)“0 

260 AP(IyJM+J) ==BI (I y J)J NEXTIJ NEXTJ 
270 Z1 = : - *01* F0RK == 1T0N * IFLC< K) <>080T0335 

290 fori=itoim:h< i)« o:fqrj»itoim:l=lb<j> 

300 H <I)=H(I)+CP< L)*BI< J y I) ♦NEXTJ J NEXTI 
310 Z==0 i FOR 11 TO IM i Z* Z+H < I > *AP <Iy K ) l NEXT I 
320 Z“Z~CP(K) t IFZCZ1THENIR~K t Zl-Z 
335 NEXTK 

340 IFZ1=-♦01G0T0530 

35 0 F 0RI = 1T 01M J Y <I)=0 1 F0RJ=1T01M X Y <I)=Y(I)+ BI(I r J)*AP < J vIR) 
360 NEXTJ t NEXTI 

370 T1~0♦01♦K~0 *F0RI = 1T01M JIFY<I><.01G0T0430 
3 80 L “ L B (I) i IF K=0 T HEN IL. = I i T1 = X P < L > / Y < I > 

400 IF XP < L)/Y <I)< T1THE NIL = I i T1=X P < L)/Y <I) 

420 K-l 
430 NEXTI 

440 IFT.1.». 01THENI B=0 J RETURN 

460 F0RI»1T01MIAR <I)=AP(I?IR)J NEXT1 1 G0SUB600 
480 F0RI=1TQIM t IFI=ILG0T0500 

490 L1 ==L.B < I) J L2=LB (IL ) tXP< L1) ==XP < L1) -Y < I ) /Y < IL ) *XP < L2) 

500 NEXTI 

510 XP<IR)=XP<L2)/Y<IL>JXP<L2)aO: L B ( 11... > = IR J L C < L 2 ) = 0 

520 L C (IR) a IL.. t G 0 T0 2 7 0 

530 F0RIa1T0JM:X<I)aXP<I)♦NEXTI 

540 F 0 RI = 1T 01M t S(I)=X P(I+JM) l NE XTI * IB a1 i RET U R N 

600 IE=0 i F0RIlalT01M}YY <11)=0«F0RKK=1TOIM 

605 YY(II)=YY(II)+BI<IIvKK)*AR(KK) t NEXTKK t NEXTII 

6 2 0 I FAB S < YY (IL.) ) > = ♦ 0 0 0 001G 0 T 0 6 3 0 

625 RETURN 

6 3 0 F 0 R J J a 1T 01M t F 0 R11 = 1T 01M * IF11 = IL G 0 T 0 6 5 0 
640 BI(11v JJ >=BI(11y J J)-Y Y(11)/Y Y <IL)* BI(IL y JJ) 

650 NEXTII 

660 BI (IL y JJ) "BI < IL. y JJ) /YY < IL > l NEXT J J t IE-1 ♦ RETURN 
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ASSEMBLY OFFSET 

HOW TO MAKE THE AIM 65 ASSEMBLER 
OFFSET OBJECT CODE FOR EPROMS 

Bruce McIntosh 
National Research Council 
Ottawa, Canada 

Issue no. 2 of INTERACTIVE describes a modified tape loader program 
for offsetting object code which is to run in ROM-allocated memory. I 
have been using a method of writing source code which tricks the AS¬ 
SEMBLER into doing the offsetting and bypasses tape storage and re¬ 
loading. After the source code for a program has been written in this for¬ 
mat, changing only one or two statements allows the following three 
options to be realized, 

1) An assembled listing with all addresses in the listing correct as they 
will appear in ROM. No object code is produced. 

2) Object code (with listing) which can be run and debugged in RAM. 

3) Object code which is stored in RAM but is correct for running in 
ROM. This code is ready for dumping, usually via the TTY output, 
to an EPROM programmer. The listing from this assembly is not very 
useful. 

My TV-monitor program runs in ROM beginning at $B3C0 and I shall 
use this as an example. At the beginning of the source code I define three 
constants. 

i) The address where the program is to run, say 

RUN = $B3C0 

ii) The address where the object code is to be stored, either the final 
program or early versions which are to run and tested in RAM. In 
options 2) and 3) this will be a RAM address. 

STORE = $0DC0 

The last two hex digits do not have to be the same as the RUN address 
but this makes debugging easier. 

iii) The difference between these two, which, to save EDITOR space, 
I usually designate by a single letter. 

Z = RUN —STORE 

After defining constants and absolute addresses for the program, the 
PROGRAM COUNTER is equated to STORE. 


Then, in writing code to be processed by the ASSEMBLER, address la 
bels which will be assigned by the ASSEMBLER are written with the 
shift factor “+Z” when they appear after a jump command. For exam¬ 
ple, if there is a subroutine labelled SCROLL, jumps to it are written 

JSR SCROLL+Z 
or, JMP SCROLL +Z 

Note that a branch is written normally 

BNE SCROLL 

since the ASSEMBLER needs only the increment, not the actual address. 
The subroutine itself has its label written normally 

SCROLL LDA CURSOR 
etc. 
etc. 

Absolute addresses of course do not need the shift. For example, a 
MONITOR subroutine is defined by an equate and used normally; 

SWSTAK = $EBBA 

• • • • 

• • • • 

JSR SWSTAK 

Admittedly, adding the “+Z” to the labels takes some thought and ef¬ 
fort, but after the source code has been written in this form, the three 
options described at the beginning can be obtained by changing only the 
STORE and/or the RUN equate as illustrated in the following examples. 

I wish to run and test the program in RAM. With the source code stored 
in the EDITOR I change the equates to 

RUN = $0DC0 
STORE = $0DC0 

Obviously Z=0 and this is a normal program which is assembled and 
loaded for testing at $0DC0 in RAM. 

When the program is completely debugged, I want a reference listing of 
the program as it will appear in ROM. I change 

RUN = $B3C0 


* = STORE 


STORE = $B3C0 
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Here I run the ASSEMBLER with OBJ?=Y, OUT=X, and get a listing 
but no object code. Again Z=0 and it might appear that I am accomplish¬ 
ing very little. But now I make the changes 

RUN = $B3C0 
STORE = $0DC0 

When I assemble the program the resulting block of object code is loaded 
at $0DC0. It will not run there, but when it is transferred out to an 
EPROM it represents a program that will run correctly at $B3C0 in the 
B-ROM socket. 

There are one or two tricky points. For example, the main entry point to 
the TV-monitor program is labelled OUTTV, and in the initialization the 
address assigned to OUTTV is loaded into the display linkage address 
(DILINK) of the main MONITOR by the following coding 

LDA #<OUTTV 
STA DILINK 
LDA #>OUTTV 
STA DILINK+ 1 

Writing 

LDA #<OUTTV +Z 

produces an incorrect result. In this case it is necessary to do the address 
shift in an equate 

OUTTVZ = OUTTV+Z 

and write the source code as 

LDA #<OUTTVZ 
etc. 

The subroutine is labelled in the normal manner 

OUTTV PHA 
JSR PHXY 
etc. 

The flexibility that this technique provides for EPROM program devel¬ 
opment is really quite surprising and will repay the added thought and 
effort required in writing the source code. 


. . . COMING SOON 

Forth for AIM 65 

A new ROM set containing the FORTH programming language is ex¬ 
pected to be available by the second quarter of 1981. 

FORTH is a unique programming language that is well suited to a variety 
of applications. Because it was originally developed for real-time control 
systems, FORTH has features that make it ideal for machine and process 
control, energy management, data acquisition, automatic testing, robot¬ 
ics and other applications where assembly language was previously con¬ 
sidered to be the only possible language choice. 

AIM 65 FORTH is contained in two 4K byte ROMS which plug directly 
into the AIM 65 BASIC sockets. For further information, contact Elec¬ 
tronic Devices Division, Rockwell International, POB 3669, RC55 An¬ 
aheim, CA 92803. The phone number is (714) 632-3729 or call your 
local Rockwell sales office. 


HOW TO CHANGE THE STARTING 
ADDRESS FOR AIM 65 BASIC 
PROGRAMS 

If you wish your BASIC programs to reside at a location other than the 
normal $0212 location, follow this simple procedure. First enter BASIC 
with the ‘5’ key and answer all the prompts normally. Next, exit BASIC 
with the ESC key. If you’d like programs to start at $0500, modify the 
pointers at locations $0073 and $0075 to the following values: 

0073 01 05 
0075 03 05 

and install three null bytes ($00) starting at 0500 0500 00 00 00 

Now reenter BASIC with the ‘6’ key and whatever programs are typed 
in or loaded from cassette will reside starting at $0500. 


ZERO PAGE USAGE 

In case you’re wondering, here’s a list of the zero page locations used 
by the AIM 65 system software. 

AIM 65 MONITOR $00AD-$00FE 

ASSEMBLER ROM $00O4-$00AB 

BASIC ROM $0000-$00DB 

PL-65 ROM $0000-50020, $0023 
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AIM 65 ASSEMBLER 
OUTPUT FORMATTER 

. . . and Centronics printer driver 

Georges-Emile April 
Montreal, Quebec 

(EDITOR’S NOTE: If you have a wide carriage printer hooked up to 
AIM 65, you're probably wishing that there were some way to reformat 
the output and make it more readable. Well, your wish is granted. And 
also a Centronics printer driver is thrown in to boot. PB0-PB7 is used 
for data output to the printer, CB2 is the ‘data ready' line while CBI is 
‘data received’ line.) 


; THE FOLLOWING OUTPUT DRIVER, ASSEMBLED HERE FOR USE WITH 
;CENTRONICS 386C PRINTER.MILL REFORMAT ASSEMBLER OUTPUT FOR 
; USE WITH LONG LINE PRINTERS 

; IT REMOVES EXTRA CR/LF COMBINATIONS INSERTED BV THE AS¬ 
SEMBLER, AND ARRANGES LISTINGS IN NEAT COLLUMNS AS ONE CAN 
; SEE IN THIS EXAMPLE. 

; IT ALSO RECOGNISES TAB (109) CHARACTERS,AND FILLS IN SPACES 
; IT ALSO COUNTS LINES, AND GENERATES NEW PAGE AFTER SUFFI¬ 
CIENT NUMBER. RECEPTION OF FORM-FEED CHARACTER (IC),CLEARS 
; LINE COUNTER SO USER CAN CONTROL VERTICAL FORMAT IF HE 
; WISHES 

; THIS PROGRAM SHOULD BE ASSEMBLED AT ANY CONVENIENT ADDRESS 


==0000 

=A479 LINCNT 

EA 

*=$A479 

NOP 


==A47A OLD 

EA 

NOP 


==A47B CHRCNT 

EA 

NOP 


==A47C FIRST 

EA 

NOP 


==A4?D NEW 

EA 

NOP 


==A47E TEMP 

EA 

NOP 


==A47F 

==0E09 START=* 

==0E00 CRLF=*E9F0 

*=tE00 

==0E08 0UTFLG=*A413 

”0F00 

000E 

*=*10A 
. WOP USER 



==010C 

DC1=*11 



==010C 

DEL=$7F 

=0100 

PLXV=IEBAC 

II 

& 

s 

PHXY=*EB9E 

=0100 

0UTALL=*E9BC 

==010C 

WHEPE0=*E8?1 

=0100 

0UTPUT=*EEFC 

--010C 

UPB=$A000 

=0100 

s 

CD 

II 

no 

=0100 

UPCR=#A00C 

=-010C 

UIFP=$R00[) 

==010C 

UIER=$A00E 




=0100 


*=START 


--0E00 USER 

B033 

BCS EXEC 



i THE FOLLOWING INITIALIZES DEVICE 


i FOR OUTPUT TO OTHER TYPE OF DEVICE, 


THE FOLLOWING SHOULD BE CHANGED 

=«E02 INIT 

08 

PHP 



A900 

LDA #9 



8523 

sta Ki ¬ 

;CLEAR ASSEMBLER FLAG 


A90F 

rn #IF 



2D0CA0 

AND UPGR 



09B0 

ORA #*60 

;PULSE ON 082.POSITIVE 


8D0CA0 

STA IJPCR 

EDGE ON CBI 


A914 

l.DA #114 


==0E:O 

8D0EA0 

STA UIER 



8D0DA0 

STA UIFR 



A900 

LDA #00 



8D7BA4 

STA CHRCNT 

. INIT COUNTER 


A90D 

LDA **D 



8D7AA4 

STA OLD 


==8E23 

A9FF 

LDA #$FF 



8D02A8 

STA UDDRB 



A911 

LDA #DC1 



8D00A0 

STA UPB 

:INIT INTERFACE 


A90C 

LDA #*C 

; GO TO NEW PAGE 


38 

SEC 



20360E 

JSR EXEC+1 


==8E33 

28 

PLP 



60 

RTS 


==0E35 EXEC 

68 

PLA 



8D7DA4 

STA NEW 



88 

PHP 



289EEB 

JSR PHXY 



F04E 

BEQ IGN0P 

,IGNORE BLANKS 


C90A 

CMP #*A 

, ELIMINATE LINEFEEDS 


F04A 

BEQ IGN0P 



C97F 

CMP #*7F 


=0E45 

F046 

BEQ IGNOR 

;ELIMINATE DELETES 

==0E47 FLUSH 

AD7AA4 

LDA OLD 



F028 

BEQ COMMON 



C909 

CMP #9 



D003 

BNE *+5 



20C30E 

JSR TABIT 



AE7BA4 

LDX CHRCNT 



D03A 

BNE NOTFRS 


==0E58 

8D7CA4 

STA FIRST 

.MAKE NOTE OF FIRST 


C93D 

CMP #'=-' 

CHARACTER 


F00D 

BEQ NOTAB 



C92A 

CMP #-'* 



F009 

BEQ NOTAB 
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0901 

LB0 

#1 



D0E8 

BNE TflBIT 



2523 

0ND 

m 

;TEST FOR P0SS2 


E020 

CPX #$20 



F003 

BEQ 

NOTflB 

IF NOT. NO REFORMATTING 


F0E4 

BEQ TflBIT 


==0E69 

20C30E 

•JSP 

TBBIT 



60 

PTS 


==0E6C NOTflB 

BD7BA4 

1.00 

OLO 







F003 

BEQ 

COMMON 


==0EE0 0UT2 

090B 

LDA #$fl 

ifXTER CP. INSERT LF 


20E28E 

JSP 

OUTCHR 


=0EE2 OUTCHR 

201F0F 

JSR iMIT 


==0E74 COMMON 

BO7D04 

LD0 

NEW 



C90D 

CMP #$D 

;IS IT CP? 


807004 

STB 

OLO 



F0F7 

BEQ 0UT2 

; IF SO ADD LF 


0900 

LOB 

#0 



EE7BB4 

INC CHRCNT 

;COUNT CHARACTER 


8D7D04 

STB 

NEW 



C900 

CMP #$B 



0D7004 

LOB 

OLO 

i RECOVER LAST CHBPBCTER 


D002 

BNE OUR 



020! 

LOX 

#1 



0900 

LDB #$D 


==0E84 

E423 

CPX 

m 

■ TEST FOR PBSS2 

==0EF2 OUR 

2C1E0F 

BIT BITS 

iTEST FOR NON-PRINTING 


F005 

BEQ 

IGNOP 

i IF SO LEAVE STACK BS IS 


0003 

BNE 0IJT4 

CHARACTERS 


0D7004 

LOB 

OLO 

. IF NOT. FLUSH STACK 


CE7BB4 

DEC CHRCNT 

;NON-PRINTING CHARACTERS 


D0B0 

BNE 

FLUSH 


==0EFB 0UT4 

B200 

LDX #0 

MUST NOT BE COUNTED 

=8E8D IGNOP 

200CEB 

ISP 

PLXV 



C90D 

CMP #$0 

.TEST FOR CP 


28 

PLP 




0017 

BNE NiXP 



60 

PTS 




8E7BB4 

STX CHRiCNT 

;IN CASE OF CR. CLEAR 









CHARACTER COUNTER 

==0E92 NOTFPS 

C90D 

CMP 

WO 

; / CR / ? 






D0D6 

BNE 

NOTflB 



EE79B4 

INC LINCNT 

.AND INCREMENT LINE 


0O7C04 

LOB 

FIRST 



B03C 

LDV #60 

COUNTER 


C93D 

r»0!O 

CMP 

#'=' 



CC79B4 

CPV LINCNT 

;TOO MANV LINES? 


BNE 

0THEP1 


==0F0B 

own 

BNE NOCP 


2E7C04 

POL 

FIRST 



B90C 

LDB ##C 


==0EB0 COM2 

20C38E 

JSP 

TBBIT 



201F0F 

JSR OUTIT 



0D7D04 

LOB 

NEW 



B90D 

LOB #$D 



C93D 

CMP 

#'= 



8E79B4 

STX LINCNT 



F8C0 

BEQ 

COMMON 


==0F!7 NOCP 

C90C 

CMP #$C 



8D7C04 

STB 

FIRST 



0003 

BNE BITS 



4C748E 

JMP 

COMMON 



8E79B4 

STX LINCNT 


==0EB0 MBVBE 

CD7C04 

CMP 

FIRST 


==0F1E BITS 

60 

PTS 



8O7C04 

STB 

FIRST 






F0B4 

BEQ 

NOTflB 







D0E6 

BNE 

COM2 






=8EBfl OTHER! 

0O7D04 

LOB 

NEW 


; THE FOLLOWING ROUTINE 

DOES THE BCTUBL OUTPUT TO PRINTING 


C93B 

CMP 

#'■; •' 


. DEVICE. IT SHOULD BE CHANGED IF OUTPUT TO DIFFERENT DEVICE 


F0EF 

BEQ 

MftVBE 


; IS DESIRED 





0009 

BNE 

NOTflB 






==0ECK TfiBIT 

092-0 

LOB 

#•- •' 


==0F1F OUTIT 

48 

PHfl 

;SAVE CHBRBCTER 


20E20E 

JSP 

OUTCHR 



B910 

LDB #$10 



0O7B04 

LOB 

CHRCNT 


=0F22 WAIT 

2C0OB0 

BIT IJIFR 



00 

TAX 




F0FB 

BEQ WAIT 

.WAIT FOR PRINTER REflOV 


29E0 

BNO 

#$E8 



8D0OB0 

STB UIFP 

iCANCEL 'REBDV FLAG' 


F004 

BEQ 

LOW 



68 

PLfl 

. i3ET character 


0907 

LOB 

#7 



mm 

STB UPB 

,-SEND TO PRINTER 


0002 

BNE 

*+4 



60 

PTS 


==0EO4 LOW 

090F 

ORB 

#$F 




END O306C 

i POINT TO COMMENT FILE 


2O7B04 

BNO 

CHRCNT 



ERRORS= 0000 
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AIM 65 TAPE CATALOG 
PROGRAM 


Steve Bresson 
Severn, Md. 

(EDITOR'S NOTE: How many times have you forgotten which programs 
were on a certain cassette tape? It’s happened to me more than once. 
Here’s a program that will not only tell you the names of the programs 
on tape, but will also tell you what type of program it is.) 


When programs are saved on tape by the AIM 65 there are normally 2 
distinct formats. In my basic data subroutines I add another format so that 
the program will know that it is reading a data file: 

1) Object — begins with a <CR>. 

2) Text — begins with a <space>. 

a) Text — ends with a <CR><CR>. 

b) Basic program — ends with a <CTL-Z>. 

3) Basic Data — begins with a <#><CR>. 

Ends with a <CTL-Z>. 

This is a TEXT file. 

TLIST reads the tape looking for the beginning of any file. When found, 
it lists the filename, and a T, O, or D to indicate a Text, Object, or Data 
file. For text and data files it then reads the file, looking for a <CTL-Z> 
or double <CR> to end the file. If a <CTL Z> is found, a B is put out 
to indicate a Basic file. The last item on the line is the length of the file 
in hex. For object files the program lists the starting and ending ad¬ 
dresses of each continuous block in the file. 


The only way to get out of the program, after you have listed all your 
files, is to do a reset—the tape input program is too busy to bother with 
scanning the keyboard and ignores you. 


SUBROUTINES 


LIST 022B Used here to print a prompt at the start of 

the program 

GET 0240 Gets input from the keyboard and echos it. 

Ends on <CR>. 


CR 02F2 Puts out a <CR> and clears the character 

counter (OCNTR). 

FINDF 02FA Find a file. Reads from tape to find the be¬ 

ginning of a file. Prints out the file name 
and O/T/D. Returns with CY set if T or D 
type file. CY clear for O type file. 


OBJ 

027C 

Searches for continuous blocks in an objec 



file and lists the start/end addresses. Ends 
on a 0 length record. 

TEXT 

02CC 

Parses through a text or data file looking for 
a <CTL Z> or <CR><CR>. Prints out 
file length in hex. 

TAB 

021A 

Puts out spaces to align the output fields. 

ENDBLK 

024B 

Prints out the end address of an object block. 

PRNTYX 

025D 

Tabs over to the correct column and prints 
the contents of TMPY and TMPX. Changes 

OLD to the new start address. 

UPDATE 

0298 

Updates the address variable so we know if 
the next record is continuous. If the address 
it trys to use is not correct, it calls ENDBLK 
and starts a new line for the new block. 

GBYT 

02C2 

Reads a byte from the tape input subroutine 
and bumps the counter. 

FBLKST 

033D 

Parses thru the tape input looking for the 
start of a record (object format). 

BNK 

0355 

Bumps the output character counter then^^ 
jumps to BLANK to print a space. 

OUTP 

035A 

Bumps the output character counter then 
jumps to OUTPUT to print to the display/ 
printer. 

If you start the program up (at $0200) by using the FI key (it must be 

initialized), you will see: 


<[>TAPE=" 


This is a prompt for you to put in any information you wish to have 
printed. I usually put in the tape i.d. and the date. The program will then 
turn on the tape and begin looking for a file. If the monitor subroutine 
becomes confused because of garbage on the tape, it will print ‘ERROR’ 
and jump to the monitor. This will not hurt anything. Just start the pro¬ 
gram up again and continue from where you are. 

EXAMPLE: 


<[>TAPE 

= TEST TAPE 


DATEX 

TB 042F 

—basic source file 

TESTO 

DB 005E 

—basic data file 

JUNK 

T 030F 

—text file 

KCMD 

O 00CA 

00DE —object file with 2 segments 


010C 

010E 

SUBMN 

O A400 

010F 

A401 —object file with 3 segments _ 

0111 


0200 

03C9 

MEMOl 

O 0000 

0114 —object file 



iyii »\<;ii\i 
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2000 
2000 
2000 
2000 
2000 
2000 
2000 
2000 
2000 
2000 
2000 
2000 
2000 
2000 
2000 
2000 
0000 
0002 
0003 
0004 
0005 
0006 
0008 
0009 
000A 
000A 
0200 
0200 
0200 

0200 A9 80 
0202 8D 11 A4 
0205 20 30 02 

0208 20 45 02 

020B 20 F -7 02 

020E 20 FF 02 
021.1 BO 06 
0213 20 81 02 

0216 4C OE 02 
0219 20 D1 02 

021C 4C OE 02 
02 IF' 48 
0220 A5 08 
0222 C9 09 
0224 BO 08 
0226 20 3E E8 

0229 E6 08 
022B 4C 20 02 
022E 68 

022F 60 

0230 

0230 A2 00 
0232 BD 3F 02 


BLANK 

=$E83E 

RDRUB 

==$E95F 

BL.ANK2 

=$E83B 

WRAX 

=$EA42 

TIBYTE 

=$ED3B 

OUTPUT 

==$E97A 

CRLF 

==$E9F0 

RCHEK 

=$E907 

BLK 

==$0115 

TIBY1 

=$ED53 

PRIFLG 

=$A411 

CURP02 

=$A415 

TABUFF 

==$0116 

CTL.Z 

=$1A 

OLD 

*==$0000 

*=*+2 

TMPA 

*=*+1 

TMPX 

*=* + 1 

TMPY 

*==*+1 

OBJFLG 

*=* + 1 

TPCTR 

*=*+2 

OCNTR 

*==*+1 

TCFL.G 

*==*+1 

J TURN 

*==$0200 

PRINTER ON 

MAIN 

LDA #$80 

STA PRIFLO 
JSR LIST 
JSR GET 

JSR OR 

JSR FINDF 

M0.1. 

BCS M01 

JSR OBJ 

JMP MAIN 
JSR TEXT 

TAB 

JMP MAIN 

PH A 

TAB! 

LDA OCNTR 

TAB2 

CMP *09 

BCS TAB2 
JSR BLANK 
INC OCNTR 
JMP TAB1 

PL A 

LIST 

LIST! 

RTS 

L.DX #00 

LDA L.DAT»X 


0235 

FO 

07 


0237 

20 

7 A 

E9 

02 3 A 

E 8 



02 3 B 

4C 

32 

02 

02 3 E 

60 



02 3 F 

54 

41 

LDAT 

0244 

00 



0245 

AO 

00 


0247 

20 

5F 

E9 

02 4 A 

C8 



02 4 B 

C9 

OD 


02 4 D 

DO 

F8 


024F 

60 



0250 




0250 

20 

57 

03 

0253 

A6 

00 


0255 

A5 

01 


0257 

CA 



0258 

EO 

FF 


02 5 A 

DO 

03 


02 5 C 

38 



02 5 D 

E9 

01 


025 F 

4C 

7 A 

02 

0262 

20 

IF 

02 

0265 

A5 

04 


0267 

A6 

03 


0269 

20 

7 A 

02 

026C 

AS 

02 


026E 

18 



026F 

65 

03 


0271 

85 

00 


0273 




0273 

A9 

00 


0275 

65 

04 


0277 

85 

01 


0279 

60 



027A 




02 7 A 

E6 

08 


027C 

E6 

08 


02 7 E 

4C 

42 

EA 

0281 

A9 

80 


0283 

85 

05 


0285 

20 

42 

03 

0288 

DO 

06 


028A 

20 

50 

02 

02 8 D 

4C 

F7 

02 

0290 

20 

9D 

02 

0293 

20 

3B 

ED 

0296 

C6 

02 


0298 

DO 

F9 


029A 

4C 

85 

02 

029D 

85 

02 


029F 

86 

03 



BEQ LIST2 
JSR OUTPUT 
INK 

JMP LIST1 
LIST2 RTS 

♦ BYTE ' TAPE 55 ' * 00 


GET 

L.DY 

#00 

GET! 

JSR 

RDRUB 


I NY 



CMP 

#$0D 


BNE 

GET1 


RTS 


ENDBLK 

JSR 

BNK2 

ENDBK1 

LDX 

OLD 


LDA 

0LD+.1. 


DEX 



CPX 

#$FF 


BNE 

EN2 


SEC 



SBC 

#01 

EN2 

JMP 

PRAX 

PRNTYX 

JSR 

TAB 


LDA 

TMPY 


LDX 

TMPX 


JSR 

PRAX 


LDA 

TMPA 


CLC 



ADC 

TMPX 


STA 

OLD 


LDA 

#00 


ADC 

TMPY 


STA 

OLD+1 


RTS 


PRAX 

INC 

OCNTR 


INC 

OCNTR 


JMP 

WRAX 

OBJ 

LDA 

#$80 


STA 

OBJFLG 

0BJ1 

JSR 

FBLKST 


BNE 

OB J1A 


JSR 

ENDBLK 


JMP 

CR 

0BJ1A 

JSR 

UPDATE 

GBJ2 

JSR 

TIBYTE 


DEC 

TMPA 


BNE 

0BJ2 


JMP 

0BJ1 

UPDATE 

STA 

TMPA 


STX 

TMPX 
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02 A1 

84 

04 



STY 

TMPY 

0309 

20 

53 

ED 


JSR 

TIBY1 

02A3 

24 

05 



BIT 

ODJFLG 

030C 

CA 




DEX 


02A5 

10 

05 



DPL. 

UP1 

030D 

8 E 

15 

A4 


STX 

CURP02 

02A7 

46 

05 



LSR 

ODJFLG 

0310 

AD 

16 

01 


LDA 

TABUFF 

02A9 

4C 

62 

02 


JMP 

PRNTYX 

0313 

C9 

00 



CMP 

#00 

02AC 

C4 

01 


UP1 

CRY 

OLD+1 

0315 

DO 

E8 



DNE 

FINDF 

02 A E 

FO 

09 



BEQ 

UP 3 

0317 

A2 

05 



LDX 

#*05 

02 B0 

20 

50 

02 

UP 2 

JSR 

ENDBLK 

0319 

20 

3D 

ED 

FND1 

JSR 

TIDYTE 

02B3 

20 

F7 

02 


JSR 

CR 

031C 

20 

5F 

03 


JSR 

OUTP 

02 B 6 

4C 

62 

02 


JMP 

PRNTYX 

03 IF 

CA 




DEX 


02B9 

E4 

00 


UP3 

CPX 

OLD 

0320 

DO 

F7 



DNE 

FND1 

02BB 

DO 

F3 



DNE 

UP 2 

0322 

20 

5 A 

03 


JSR 

BNK 

02 BD 

18 




CLC 


0325 

20 

3D 

ED 


JSR 

TIDYTE 

02BE 

65 

00 



ADC 

OLD 

0328 

C9 

OD 



CMP 

#*0D 

02C0 

85 

00 



STA 

OLD 

032 A 

DO 

07 



DNE 

FND2 

02C2 

90 

02 



BCC 

UP 4 

032C 

A 9 

4F 



LDA 

#'0 

02C4 

E6 

01 



INC 

OLD+1 

032E 

20 

5F 

03 


JSR 

OUTP 

02 C 6 

60 



UP4 

RTS 


0331 

18 




CLC 


02C7 

20 

3D 

ED 

GDYT 

JSR 

TIDYTE 

0332 

60 




RTS 


02CA 

E6 

00 



INC 

OLD 

0333 







02CC 

DO 

02 



DNE 

GDY1 

0333 

C9 

23 


FND2 

CMP 

#'# 

02CE 

E6 

01 



INC 

OLD+1 

0335 

DO 

04 



DNE 

FND4 

02 DO 

60 



GBY1 

RTS 


0337 

A 9 

44 



LDA 

#'D 

02 D1 

A9 

00 


TEXT 

LDA 

*00 

0339 

DO 

02 



DNE 

FND5 

02D3 

85 

00 



STA 

OLD 

033D 

A 9 

54 


FND4 

LDA 

#' T 

02D5 

85 

01 



STA 

OLD+1 

03 3D 

20 

5F 

03 

FND5 

JSR 

OUTP 

02 D 7 

20 

C 7 

02 

TX1 

JSR 

GDYT 

0340 

38 




SEC 


02 DA 

C9 

1 A 


TX2 

CMP 

#CTLZ 

0341 

60 




RTS 


02DC 

DO 

08 



DNE 

TX3 

0342 

20 

3D 

ED 

FBLKST 

JSR 

TIDYTE 

02DE 

A9 

42 



LDA 

#'D 

0345 

C9 

3D 



CMP 

#' 

02 E0 

20 

5F 

03 


JSR 

OUTP 

0347 

DO 

F9 



DNE 

FBLKST 

02E3 

4C 

FI 

02 


JMP 

TX4 

0349 

20 

3D 

ED 


JSR 

TIDYTE 

02 E 6 

C9 

OD 


TX3 

CMP 

#*0D 

034C 

48 




PH A 


02E8 

DO 

ED 



DNE 

TX.1. 

03 4 D 

20 

3D 

ED 


JSR 

TIDYTE 

02 EA 

20 

C7 

02 


JSR 

GDYT 

0350 

A8 




TAY 


02 ED 

C9 

OD 



CMP 

♦ $0D 

0351 

20 

3D 

ED 


J S R 

TIDYTE 

02 EF 

DO 

E9 



DNE 

TX2 

0354 

AA 




TAX 


02 F1 

20 

IF 

02 

TX4 

JSR 

TAD 

0355 

68 




PL A 


02F4 

20 

53 

02 


JSR 

ENDBLK+3 

0356 

60 




RTS 


02F7 

20 

FO 

E9 

CR 

JSR 

CRLF 

0357 







02 FA 

A9 

00 


CR1 

LDA 

#00 

0357 

20 

5 A 

03 

DNK2 

JSR 

DNK 

02 FC 

85 

08 



STA 

OCNTR 

035 A 

E6 

08 


BNK 

INC 

OCNTR 

02FE 

60 




RTS 


035C 

4C 

3E 

E8 


JMP 

BLANK 

02 FF 

20 

07 

E9 

FINDF 

JSR 

RCHEK 

03 5 F 

E6 

08 


OUTP 

INC 

OCNTR 

0302 

A 2 

00 



LDX 

#00 

0361 

4C 

7 A 

E9 


JMP 

OUTPUT 

0304 

A 9 

00 



LDA 

#00 

0364 





.END 

0306 

8 D 

15 

01 


STA 

BLK 
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SOLID GRAPH PLOT 

Mike Corder 
Jim Nickum 
Rick Ketchum 

(EDITOR’S NOTE: The following machine code is a modified version of 
the AIM PLOT routine (published in issue #2 ) that does a solid graph 
instead of the dots. It's very striking as you can see. The BASIC program 
was written by Tex Thomas of Rockwell to plot a sine wave. You can ex¬ 
periment with different functions.) 



Here's an example of a sine wave plotted by the Solid Graph Plot 
routine. 


2000 





*=$OEFO 


0EF0 







OEFO 




PAT23 

=$FFAO 


OEFO 




PRIERR 

=$F079 

yMONITOR SR 

OEFO 




p c Ev¬ 

=$A80C 

fPRINTER CONTROL REG 

OEFO 




ers r 

=0 

t PR INTER START (CD.1.) 

OEFO 




SP12 

= 1 

ySTRODE PlyP2 <CA1) 

OEFO 




MON 

=$co 

yMOTOR ON (CB2=0) 

OEFO 

A 9 

Cl 


MIRON 

EDA #PRST+SP12+M0N 

0EF2 

80 

OC 

A 8 


STA PCR 


0EF5 

20 

AO 

F'F 


JSR PAT23 

yCHECK FOR RUNNING 

0EF8 

DO 

08 



DNE CONI 


OEFA 

20 

AO 

FF 


JSR PAT23 

yAGAIN 

OEFD 

DO 

03 



DNE CONI 


OEFF 

4C 

79 

FO 


JMP PRIERR 

yMOTOR FAIL MSG 

0 F02 

60 



CONI 

RTS 


OF 03 




IOUTU 

=$A479 

y T0P TWO 

0F03 




I OIJTL 

= : $A478 

y DOTTOM 8 ELEMENTS 

0F03 




DRD 

=$A800 


OF'03 




DR AH 


DRD + 1 y DATA REG A 

OF" 03 




T2L 

”$A808 

y TIMER 2 LATCH - LOW 

OF" 03 




T2H 

z~. 

T2E+1 yTIMER 2 LATCH-HIGH 

0F03 




DE2 

” $ E C1D 

yTIMER DELAY ROUTINE 

OF" 03 




PRTIME 

=$1110 

y DOT PRINT TIME (MS) 

0F03 




y 



OF" 03 

AD 

79 

A4 

PRDOT 

EDA IOUTU 

yUPPER MASK 

OF'06 

OD 

00 

A 8 


ORA DRD 

y WITH PRESENT 

0F09 

8 D 

00 

A 8 


STA DRD 


OFOC 

AD 

78 

A4 


EDA IOUTL 

y LOWER 

OF" OF 

8 D 

01 

A8 


STA DRAH 

y TURN THEM ON 

OF 12 

A 9 

10 



EDA #<PRTIME 


OF 14 

8 D 

08 

A8 


STA T2E 

y SET TIMER 

OF 17 

A 9 

11 



EDA #>PRTIME 


OF 19 

8 D 

09 

A 8 


STA T2H 


OF 1C 

20 

ID 

EC 


JSR DE2 

?DELAY 

OF IF 

A9 

00 



EDA #0 


0F21 

8 D 

01 

A 8 


ST A DR A FI 

y TURN IT OFF 

OF 24 

AD 

00 

A 8 


EDA DRD 


OF 2 7 

29 

FC 



AND #$FC 

y MASK OFF ELEMENTS 
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uTEmenfE 


0F29 

8 D 

00 

A 8 


ST A 

DRB 


0F2C 

60 




RTS 



OF 2D 




y 




0F2D 




DATA 

”$E 1 

2 

yBEGINNINO OF PLOT DATA 

OF 2D 

A9 

00 


CALC 

LDA 

#0 


0F2F 

8 D 

78 

A4 


ST A 

IOUTL 


OF 3 2 

8 D 

79 

A4 


STA 

IOUTU 


OF 35 

B9 

12 

OE 


LDA 

DATA*Y 

yNEXT PLOT POINT 

0F38 

20 

CD 

OF 


JSR 

CNVT 

yCONVERT TO OUR FORMAT 

0F3B 

48 




PH A 



OF3C 

29 

OF 



AND 

#*0F 

? GET DOTNUM 

0F3E 

8 D 

F6 

OF 


STA 

DOTNUM 


0F41 

8 D 

F4 

OF 


STA 

SADOT 

y save; for count 

0F44 

68 




PL A 



0F45 

08 




I NY 



0F46 

29 

FO 



AND 

# $ F 0 

y MASK ELEM NUMBER 

0F48 

4A 




LSR 

A 


OF 4 9 

4A 




LSR 

A 


OF" 4 A 

4A 




LSR 

A 


0F4B 

4A 




LSR 

A 


0F4C 

09 

08 



CMP 

#8 


0F4E 

90 

11 



BOO 

SHIFT 

?BRANCH IF <8 

0F50 

DO 

04 



BNE 

CONTI 

yBRANCH IF =9 

OF 5 2 

A 9 

01 



LDA 

#1 

y SET 8 MASK 

OF 5 4 

DO 

02 



BNE 

PAT4 


OF 5 6 

A9 

03 


CONTI 

LDA 

#3 

y 9 

OF 58 

8 D 

79 

A4 

PAT4 

STA 

IOUTU 


0F5B 

A9 

FF 



LDA 

#*FF 

y TURN LOW ALL.. ON 

0F5D 

8 D 

78 

A4 


STA 

IOUTL. 


0F60 

60 



END 

RTS 



OF 61 




y 




OF" 61 

AA 



SHIFT 

TAX 



OF 6 2 

38 




SEC 



OF 6 3 

2 E 

78 

A4 

I...00P1 

ROL 

IOUTL. 

?CARRY INTO MASK 

OF" 6 6 

EO 

00 



CPX 

#0 

y DONE? 

OF" 6 8 

FO 

F6 



BEQ 

END 


OF" 6 A 

38 




SEC 



0F6B 

CA 




DEX 



0F6C 

40 

63 

OF 


JMP 

LOOP 1 


0F6F 




V 




0F6F 




ACR 

=*ABOB 

yAUX CONTROL REG 

0F6F 




DTSP 

=4850 

y DOT DELAY TIME 

0 F6F 




STTIME 

=4500 

ySTART DELAY TIME 

0F6F 




y 




0F6F 

AO 

01 


MAIN 

LDY 

#1 


OF 71 

20 

2 D 

OF 

LOOP 2 

JSR 

0AL.0 

yEXTRACT PLOT POINT 

OF 74 

20 

FO 

OE 


JSR 

MTRON 

yMOTOR ON 

0F77 

A9 

00 



LDA 

#0 


0F79 

8 D 

OB 

A 8 


STA 

ACR 


OF7C 

A9 

94 



LDA 

♦CSTTIME 


OF7E 

8 D 

08 

A 8 


STA 

T2L 

yDELAY TIME 

OF 81 

A 9 

11 



LDA 

#>STTIME 


0F83 

8 D 

09 

A 8 


STA 

T2H 


OF" 8 6 

20 

ID 

EO 


JSR 

DE2 

y WAIT 
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iiTEBaenn 


OF'09 

AD 

F6 

OF 

LOOP3 LDA DOTNUM 5SEE IF AT DOT POSITION 

0F8C 

DO 

30 


BNE CQNT2 ?BRANCH IF > ZERO 

0F8E 




P HAVE NOW PRINTED DOTS IN ALL THE RIGHT 

OF 8 EL' 




P POSITIONS UP TO THE DOT POSITION ITSELF* 

0F8E 




P FILL OUT COLUMNS BELOW UP TO START 

0F8E 




P OF ADJACENT HEAD 

OF BE 

20 

03 

OF 

JSR PRDOT P PRINT IT 

OF 91 

.1.8 



CLC 

OF 9 2 

6E 

79 

A4 

ROR IOUTU 9 PRINT LESS THAN POINT 

OF 9 5 

BO 

06 


BCS Z4 PWERE IN 8 OR 9 COLUMN 

0F97 

6E 

78 

A A 

ROR IOUTL 

OF" 9 A 

40 

A 2 

OF 

JMP Z2 

0F9D 

A9 

FF 


Z4 LDA #$FF ? AL..L LOW ON STILL 

0F9F 

8D 

78 

A4 

STA IOUTL 

OF A 2 

18 



7.2 CLC 

OF A 3 

AD 

F"4 

OF 

LDA SADOT PSEE IF WE"RE THERE 

OF A 6 

69 

01 . 


ADC #1. 

OF A 8 

8D 

F4 

OF 

STA SADOT 

OFAB 

09 

OA 


CMP #1.0 ? DONE? 

OF AD 

FO 

06 


BEO Z1. 

OFAF 

20 

03 

OF 

JSR PRDOT 5 KEEP PRINTING 

0FB2 

4C 

A 2 

OF 

JMP Z2 

0FB5 

CE 

F5 

OF 

Z1. DEC NIJM 

OF BO 

DO 

B7 


BNE L.00F’2 P MORE TO PLOT 

OFBA 

20 

C7 

OF 

JSR MTROFF P TURN IT OFF 

OFBD 

60 



R T S 

OFBE 




9 PRINT UNTIL AT CORRECT DOT 

OFBE 

20 

03 

OF 

C0NT2 JSR PRDOT 

OF'Cl 

CE 

F" 6 

OF 

DEC DOTNUM 

0FC4 

40 

89 

OF 

JMP LOOP3 

OF’Cl 7 




V 

0FC7 




9 MOTOR OFF 

OF 07 




P 

0FC7 




MOFF ”$E0 P CB2=1 

0FC7 

A9 

El. 


M1" R 0 F F 1... D A # P R S )"+S P1.2+M 0 F F 

0FC9 

8D 

OC 

A 8 

ST A PCR 

OFCC 

60 



RTS 

OF'CD 




P 

OF" CD 




P HEX CONVERT 

OF" CD 




P 

OF CD 

8D 

F3 

OF 

CNVT STA HEX1 

OF DO 

98 



TYA 

0FD1 

48 



PH A 

0FD2 

F8 



SED 

0FD3 

AO 

00 


LDY #0 

0FD5 

A 9 

00 


LDA #0 

0FD7 

1.8 



L00P4 CLC 

0FD8 

4E 

F3 

OF 

L.SR HEX! 

OFDB 

90 

04 


BCC C0NT3 

OFDD 

18 



CLC 

OFDE 

79 

EC 

OF 

ADC VALUEyY 

0FE1 

C8 



C0NT3 INY 

0FE2 

CO 

07 


CPY #7 
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UTERMnH 


0FE4 

DO FI 


BNE L.00P4 

0FE6 

D8 


CLD 

0FE7 

AA 


TAX 

0FE8 

68 


PL A 

0FE9 

A8 


TAY 

OFEA 

8A 


TXA 

OFEB 

60 


RTS 

OFEC 

01 

VALUE 

♦ BYT .1 y 2 y 

OF ED 

02 



OF EE 

04 



OFEF 

08 



OFFO 

16 



0FF1 

32 



OFF 2 

64 



OFF 3 

00 

HEX1 

.BYT 0 

OFF 4 


SADOT 

*“*+1 

OFFS 


NUM 

* = #+1 

0FF6 


DOTNIJM 

*~#+l 

OFF 7 



.END 


y BACK TO BINARY 
y SAVE CONVERTED DATA 

5 DATA INTO A 

y 8 y $ 16 y $32 y $64 y DEC 1M AL_ 

y COUNT OF POINTS <MAX=255> 
y WHICH DOT 


10 REM INITIALIZE 

1 :l. : 

2 0 IN P U T " P L 0 T L E N G T H" y L 
25 IF L>255 THEN L=255 
30 DIM Y < L) 

40 POKE 4085yL iREM L TO $0FF5 

50 POKE 4 y111 * POKE 5ylS i REM USR=$0F6F 
90 i 

99 t 

100 REM GENERATE DATA IN Y(L> 

101 REM &MAXy MIN OF Y(L) 

102 J 

11.0 M=10 0 i C=.1.0 0 i D ~ 7 ♦ 9 
120 F0RX--1 TO I... 

130 J Y(X >"INT(C+M#SIN <X/D)) 

140 J IF Y(X)>MAX THEN MAX=Y<X) 

150 i IF Y < X)<MIN THEN MIN = Y<X) 

160 NEXT 
170 i 
180 i 
190 i 

500 REM SCALE DATA 0-99 
505 i 

510 DS™3568 
520 AMP=MAX-MIN 
530 SCALE“99/AMP 


535 i 

540 FOR X”1 TO L 

550 : D%=<Y<X)-MIN)*SCALE + 

560 i POKE DS + X y DX 

570 NEXT 

580 : 

590 i 

700 REM PLOT DATA 
710 GOSIJB 810 
720 D-USR< D) 

730 GOSUB 810 
740 i 
750 t 

799 END 

800 REM 4 LF 
810 FOR X=1 TO 4 
820 J PRINT! " “ 

830 NEXT 

840 RETURN 


REM DATA 


$ODEF 
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INTI RAOTIVT 


IMPROVED PLOT ROUTINE 

Marvin D. Shafer 
Provo, Utah 

(EDITOR’S NOTE: A number of you mentioned having problems with the 
original plot routine published in issue #2 of Interactive. For your ben¬ 
efit, here’s an improved plot routine that works! (I tried it myself). Also, 
it can be interfaced to BASIC a bit more easily.) 

This plot routine accepts and plots values in the accumulator ranging 
from 0 to 137. The routine determines which points it can plot and leaves 
a blank for those positions that are impossible to access like 5 and 6, 12 
and 13 and so on (see the test result). The result is a linear plot. 

TEST PROGRAM: (run this to see the linear plot example after PLOT 
has been entered) 

0200 LDA #00 
0202 STA 00 
0204 JSR OEF5 
0207 INC 00 
0209 LDA 00 
020B CMP #8A 
020D BNE 0204 
02 OF BRK 

This new PLOT is also set up so that it can be called from BASIC with 
the USR function which has been initialized to point to $0EF0. 

Example of a BASIC routine which calls PLOT: 

10 POKE 4,240:POKE 5,14 
15 Y=137/2 

20 FOR X=0 TO 1600 STEP 4 
26 Z = Y+Y*SIN (X/57.3) 

35 W=USR (Z) 

37 NEXT X 
40 STOP 


2000 

PRIFLA 

=$A411 

2000 

PINT 

~$F0CB 

2000 

PCR 

=$A80C 

2000 

PAT23 

/*N. 

<£ 

:: 

jj 

2000 

PR I ERR 

" $ F 0 7 9 

2000 

I DOT 

=$A477 

2000 

DR AH 

~$A80l 

2000 

IFR 

=$A80D 

2000 

lOUTU 

~$A479 

2000 

DRB 

=$A800 

2000 

I0UTL 

=$A478 

2000 

T2L 

“$A808 

2000 

T2H 

=$A809 

2000 

I NCR 

=$F121 

2000 

IBUFM 

=$A460 

2000 

IBITL 

“$A47A 


2000 




IB ITU 

“$A47B 

2000 




NUM 

=$FI 


2000 




OUTPR 

=$F03B 

2000 







2000 





*=$0EF0 

0EF0 

0EF0 

20 

FE 

BE 


JSR 

$BEFE 

0EF3 

AS 

AD 



LDA 

$AD 

0EF5 

0EF5 

20 

92 

OF 

CABLE 

JSR 

UALDOT 

0EF8 

20 

FC 

OE 


JSR 

ALGRA 

0EFB 

0EFC 

60 

2C 

11 

A 4 

AL..GRA 

RTS 

BIT 

PRIFLA 

0EFF 

10 

2 A 



BPL 

OUT 

OF 01 

20 

CB 

FO 


JSR 

PINT 

0F04 

20 

62 

OF 


JSR 

NIPSU 

OF 07 

A9 

Cl 



LDA 

#$C1 

0F09 

8D 

OC 

A 8 


STA 

PCR 

0F0C 

20 

AO 

FF 


JSR 

PAT23 

0F0F 

DO 

08 



BNE 

NIP02 

OF 11 

20 

AO 

FF 


JSR 

PAT23 

OF 14 

DO 

03 



BNE 

NIP02 

OF 16 

4C 

79 

FO 


JMP 

PRIERR 

OF 19 

20 

p 

A*« 

OF 

NIP 02 

JSR 

NPDOT 

OF 1C 

20 

2C 

OF 


JSR 

NPDOT 

OF IF 

AD 

77 

A4 


LDA 

I DOT 

OF 2 2 

c? 

OA 



CMP 

#$0A 

0F24 

90 

F3 



BCC 

NIP 02 

0F26 

A 9 

El 



LDA 

#$E 1 

OF 2 8 

8D 

OC 

A 8 


STA 

PCR 

0F2B 

60 



OUT 

RTS 


0F2C 

A9 

00 


NPDOT 

LDA 

#$00 

0F2E 

8D 

01 

A 8 


STA 

DR AH 

0F31 

AD 

OD 

A 8 

NDOTO 

LDA 

IFR 

0F34 

29 

02 



AND 

#$02 

OF 3 6 

FO 

F9 



BEG 

NDOTO 

0F38 

AD 

OC 

A 8 


LDA 

PCR 

0F3B 

49 

01 



EUR 

#$01 

OF 3D 

8D 

OC 

A 8 


STA 

PCR 

OF 40 

EE 

77 

A4 


INC 

I DOT 

OF 43 

AD 

79 

A4 


LDA 

I0UTU 

OF 4 6 

OD 

00 

A 8 


ORA 

DRB 

0F49 

8 D 

00 

A 8 


STA 

DRB 

OF 4C 

AD 

78 

A 4 


LDA 

IOUTL 

0F4F 

8D 

01 

A 8 


STA 

DR AH 

OF 5 2 

A 9 

A 4 



LDA 

# $ A 4 

0F54 

8D 

08 

A 8 


STA 

T2L 

OF 57 

A9 

06 



LDA 

#$06 

OF 5 9 

8D 

09 

A 8 


STA 

T2H 

0F5C 

20 

62 

OF 


JSR 

NIPSU 

0F5F 

4C 

BA 

FO 


JMP 

$F0BA 

OF 6 2 

A 2 

00 


NIPSU 

LDX 

#$00 

OF 6 4 

20 

21 

FI 


JSR 

INCP 

0F“ 6 7 

BD 

60 

A 4 

NIPS1 

LDA 

IBUFM ? X 
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lilEBSgro 


OF" 6 A 

C Ei 

77 

A4 


CMP 

I DOT 

0F6D 

DO 

1.6 



BNE 

NIPS3 

0 F6F 

AD 

7 A 

A4 


LDA 

IBITL 

OF 7 2 

FO 

08 



BED 

NIPS2 

OF 74 

OD 

78 

A4 


ORA 

IGUTL 

OF 7 7 

8 Ei 

78 

A4 


STA 

IOUTL 

0F7A 

DO 

09 



BNE 

NIPS3 

0F7C 

AD 

7B 

A4 

NIPS 2 

LDA 

IB.ITU 

0F7F 

OD 

79 

A4 


ORA 

IOUTU 

0F82 

8 D 

79 

A4 


STA 

IOUTU 

OF 85 

OF 

7 A 

A4 

NIPS3 

ASL 

IBITL 

OF 8 8 

2 E 

7B 

A 4 


ROL 

IB ITU 

0F8B 

CA 




DEX 


0 F8C 

CA 




DEX 


0F8D 

10 

D8 



BPL 

NIP SI. 

0 F8F 

4C 

1.8 

FI. 


JMP 

$ F1.18 

OF 9 2 




UAL DDT 



0F92 

85 

FF 



STA 

NUM 

OF 9 4 

AO 

00 



LDY 

#00 

OF 9 6 

A 2 

04 



L..DX 

#04 

0F98 




HERE 



0F98 

E4 

FF 



CPX 

NUM 

OF 9 A 

BO 

1.C 



DCS 

SPRINT 

0F9C 

E8 




I NX 


OF'9 Ei 

E4 

FF 



CPX 

NUM 

0F9F 

FO 

1.2 



BEQ 

C 

0 FA1 

E8 




I NX 


OF A2 

E4 

FF 



CPX 

NUM 

OF A 4 

FO 

OD 



BEQ 

C 

0FA6 

CA 




DEX 


OF A 7 

CA 




DEX 


OF" A 8 




»AD Ei 7 

TO > 

< 

0FA8 

8 A 




TXA 


OF A 9 

1.8 




CLC 


OF A A 

69 

07 



ADC 

#07 

OF AC 

AA 




TAX 


OF A Ei 




f ADD 2 

TO ’ 

T 

OF A Ei 

C8 




I NY 


OF'AE 

C8 




I NY 


OFAF 

EO 

90 



CPX 

#1.44 

0 FB1 

DO 

E5 



BNE 

HERE 

0FB3 




C 



0FB3 

A9 

64 



LDA 

*100 

0FB5 

4C 

BF 

OF 


JMP 

PRINT 

0FB8 




SPRINT 



0 FB8 

A 5 

FF 



LDA 

NUM 

OF BA 

84 

FF 



STY 

NUM 

OFBC 

38 




SEC 


OFBEt 

E5 

FF 



SBC 

NUM 

OFBF 




PRINT 



OFBF 

48 




PH A 


OF CO 

A 2 

00 



LDX 

#*00 

OFC2 

20 

38 

FO 


JSR 

OUTPR 

0FC5 

A 2 

00 



LDX 

#$00 


TAPE PROBLEMS 


Mark Reardon 
Rockwell International 

In recent months, it has come to our attention that a lot of AIM 65 users 
have been experiencing cassette tape problems. Most of these result from 
their choice in cassette recorders and/or tapes. 

We have found the most successfully used decks are the General Electric 
models 3-5XXX. There are several different styles available with dif¬ 
ferent options to satisfy most needs. 

Using Chromium Dioxide or Metal tapes with conventional recorders 
causes the high frequency end to be muted. Reading errors occur since 
this high end is what is needed most by the AIM 65. 

The solution is to pick a good quality tape of the appropriate type of bias 
for the users’ deck. This will not only save him from frustration but also 
it will usually save him a few dollars for cassettes. 


0FC7 

68 




PL A 


0FC8 

C9 

05 


DIUA 

CMP 

#$05 

OFCA 

90 

05 



BCC 

FEIN 

OFCC 

E9 

05 



SBC 

#$05 

OFCE 

E8 




I NX 


OFCF 

DO 

F7 



BNE 

DIUA 

0FD1 

1.8 



FEIN 

CLC 


0 FD2 

2 C 

82 

EF 


BIT 

$EF82 

0FD5 

08 




PHP 


0FD6 

49 

03 



EOR 

*$03 

0 FD8 

69 

01 . 



ADC 

#$01 

OF DA 

28 




PLP 


OFDB 

FO 

02 



BEQ 

SPEI 

OFDD 

29 

03 



AND 

#$03 

OFDF 

9D 

60 

A4 

SPEI 

STA 

IBUFMmX 

0 FE2 

8 A 




TXA 


0FE3 

2C 

97 

FO 


BIT 

$F097 

0FE6 

DO 

08 



BNE 

ZUR 

0FE8 

BD 

60 

A4 


LDA 

IBlJFMvX 

OFEB 

69 

05 



ADC 

#$05 

OF ED 

9D 

60 

A4 


STA 

IBUFMj-X 

OFFO 

60 



ZUR 

RTS 



OFF 1 

0FF1 ♦END 



nnnenii 
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~ LETTERS TO THE EDITOR ^ 


Dear Editor, 

Many thanks for an excellent newsletter. I was particularly interested in 
Ken Fullbrook’s letter in issue #3 as I have also been using the EDITOR 
directly for BASIC. A simple routine I use avoids having to initialize 
the EDITOR using <T> and does not need a SPACE at the beginning 
of the top line. This INPUT HANDLER is as follows: 


UIN 

.WORD INTST 

e.g. 0108 = 00 , 0109 = 
0F 

INTST 

BCC IPINIT 

0F00 BCC 0F05 90 


JMP MREAD 

0F02 JMP FAD0 

IPINIT 

JMP TOPNO 

0F05 JMP F 8 BC * C 


Please inform your readers that I have self adhesive labels available (for 
use on AIM-65 Keyboard) for use with BASIC TIME SAVER or BASIC 
SHORT CUT programs. These labels are white with black lettering. 
(Note that labels should be covered with transparent tape for long term 
protection.) 

USA & CANADA 

Send $1.00 per label with a S.A.S.E. max of 4 labels for one stamp. 

^ ELSEWHERE 

O 3 

0 ^<Asend $ 1.00 per label with a self-addressed envelope plus $ 1.00 shipping 
(SCf£& handling for 1-3 labels; $1.00 shipping for each additional 3 labels. 


To LOAD the program to BASIC answer “U” to the IN prompt just as 
Ken describes, and remember the bottom line of the EDITOR must be 
CTRL/Z. 

A tip now for those users with cassette tape recorders which do not have 
a tape counter. The VERIFY command <3> is useful for scanning tapes 
containing more than one DUMPED or LISTED file, and scanning with 
<3> for a particular file terminates the scan at the end of this file. This 
is useful for finding where on the tape the next file can be recorded. This 
is fine until files are SAVED from BASIC when <3> never terminates. 
*This occurs because the BASIC SAVE routine sends CR,LF,CR, 
LF,CTRL/Z to tape at the end of a file and the VERIFY routine only 
recognizes CR,CR. To make BASIC files terminate <3> therefore an 
extra CR must be placed at the end of a program and a method for doing 
this is as follows: 

1 . Make the very last line of your BASIC program: 

XXXXX END: (Note: omitting the colon leads to SN ERROR IN 
XXXXX) 

2. ESCAPE to the MONITOR and find where in memory the final colon 
is using: 

<M> = 75 ab cd XX XX 

3. Now look at the memory constants at cdab4 and you will see: 
<M> = cdab4 3A 00 00 00 

4. Using </> change this to: 

<M> = cdab4 3A 0D 00 00 

5. Return to BASIC using < 6 > and SAVE the program in the normal 
way. It now has CR,CR,LF,CR,LF,CTRL/Z sent to tape and the first 
two CR’s terminate <3>. (On reloading to BASIC this added 0D 
is stripped off and replaced by 00, however it is still on the tape!) 

Yours sincerely, 

Dr. P.R. Coward 
60 Onslow Gardens 
Ongar, Essex, England 


Ron Riley 
Box 4310 
Flint, MI 48504 

Dear Editor: 

I found Ken Fullbrook’s advice on using the editor to create basic pro¬ 
grams very useful. A variation of this method will allow basic to input 
data from the editor. 

1. Allocate memory space for concurrent usage of basic & editor. Only 
re-enter basic with 6 key. 

2. Create data file in editor, exiting with a “T” & “Q” command. 

3. Load in the basic program. 

4. The “input” statement that is to use a data element created in the 
editor must be proceded by the commands: 

POKE 42002,ASC(“U”) 

POKE 264,208:POKE 265,250 

The first command makes the input come from a user defined sub¬ 
routine whose location is specified by the second command as resid¬ 
ing at hex location FADO. 

5. After the input statement(s), follow with this: 

POKE 42002,13 

This returns you to normal input 

Keep in mind that if you wish to re-run the program using the editor data 
file, you must exit basic & reset the editor pointer to the top. Be careful 
of the number of elements in the data file versus the number of elements 
you are trying to input. Failure to observe these points usually causes 
me to have to resort to a re-start. 

Michael Chin 
Richmond, CA 




AIM 65 MONITOR 
ROM BIT PATTERNS 

I want to thank all who responded with programs and/or tables of ROM 
bit patterns. I’m glad to know there are so many who realize the value 
of such a thing. The table here was generated with a program written by 
G. E. April of Ecole Polytechnic (Montreal, Canada). 


08 0 E0CD 
08 0 E0flB 
10 0 E0ft8 
18 0 E2CE 
20 0 E008 
28 0 E6C8 
20 0 E152 
28 0 E16F 
40 0 E29F 
48 0 E04C 
50 0 E08E 
58 0 E014 
60 0 E119 
68 0 E07E 
70 0 E122 
78 0 E0C0 
80 0 E0D8 
88 0 E0fl5 
90 0 E0ftF 
98 0 E2CD 
fl0 0 E022 
fl8 0 E0CE 
B0 0 E21E 
B8 0 FB25 
C0 0 E2B6 
C8 0 E25C 
D0 0 E0E2 
D8 0 E082 
E0 0 E0FA 
E8 0 E0F9 
F0 0 E0ftfl 
F8 0 E0B8 


01 0 E101 
09 0 E127 
11 0 E19R 
19 0 E4A8 
21 0 E07C 
29 0 E159 
21 0 E1DC 
29 0 E1E5 
41 0 E011 
49 0 E02A 
51 0 EA4C 
59 0 E017 
61 0 E180 
69 0 EA52 
71 0 E460 
79 0 F060 
81 0 
89 0 

91 0 E82A 
99 0 E098 
fll 0 E28C 
fi9 0 E0FE 
Bi 0 E7RD 
B9 0 E200 
Cl 0 E069 
C9 0 E2AE 
Di 0 E2E6 
D9 0 E20O 
El 0 E0B2 
E9 0 E0BB 
FI 0 E25F 
F9 0 E122 


02 0 E076 
0fl 0 E1AD 
12 0 E225 
lfi 0 E48B 
22 0 E084 
2fi 0 E009 
22 0 E1D0 
3fl 0 Efl55 
42 0 E027 
4ft 0 E58D 
52 0 E001 
5ft 0 E1D9 
62 0 F212 
6ft 0 EC2fl 
72 0 E142 
7ft 0 E188 
82 0 Elflfl 
8fl 0 E146 
92 0 

9fl 0 E0C2 
fl2 0 E0C1 
ftft 0 E14E 
B2 0 F525 
Bfl 0 E091 
C2 0 

Cft 0 E0CF 
D2 0 E054 
Dfl 0 FB4B 
E2 0 E0BE 
Eft 0 E140 
F2 0 E1FB 
Ffl 0 E201 


02 0 E090 
06 0 E527 
12 0 E182 
IB 0 E285 
22 0 E087 
2B 0 E721 
22 0 Ell« 
2B 0 E05E 
42 0 E04B 
46 0 E062 
52 0 E00F 
5B 0 E1E2 
62 0 F2F9 
6B 0 E0flD 
72 0 E624 
7B 0 E14B 
82 0 E8C9 
8B 0 E51B 
92 0 E2Efl 
9B 0 

R2 0 E448 
ftB 0 

B2 0 F576 
BB 0 

C2 0 E266 
CB 0 E029 
D2 0 E01B 
DB 0 E2fl4 
E2 0 E288 
EB 0 E258 
F2 0 E270 
FB 0 E12D 


04 0 E879 
0C 0 E0E4 
14 0 E096 
1C 0 E22D 
24 0 E092 
2C 0 E11D 
24 0 E1DF 
2C 0 EF18 
44 0 E044 
4C 0 E029 
54 0 E005 
5C 0 ECE2 
64 0 F2C6 
6C 0 E075 
74 0 F0CE 
7C 0 E12C 
84 0 E206 
8C 0 E086 
94 0 E219 
9C 0 EF15 
fl4 0 E077 
ftC 0 E095 
B4 0 F68fi 
BC 0 E186 
C4 0 E06fl 
CC 0 E067 
D4 0 E19F 
DC 0 E950 
E4 0 E1F4 
EC 0 E5B7 
F4 0 E151 
FC 0 E991 


05 0 E245 
00 0 E282 
15 0 E0FB 
ID 0 E242 
25 0 E88B 
2D 0 E268 
25 0 E1E0 
2D 0 E864 
45 0 E01F 
4D 0 E002 
55 0 E02E 
5D 0 E1E2 
65 0 E28B 
60 0 E0BD 
75 0 EE41 
7D 0 E1B2 
85 0 E265 
80 0 E07B 
95 0 E2EF 
90 0 E0CC 
ft5 0 F54fl 
ffl) 0 E098 
B5 0 EE72 
BO 0 E004 
C5 0 E052 
CO 0 E0E0 
D5 0 F85E 
DO 0 E196 
E5 0 E1B8 
ED 0 E226 
F5 0 E0FD 
FD 0 E207 


06 0 E15C 
0E 0 E0C8 
16 0 E22C 
IE 0 E21B 
26 0 E08F 
2E 0 E09C 
26 0 E1E1 
2E 0 E18F 
46 0 E080 
4E 0 E022 
56 0 E0DE 
S 0 E1E4 
66 0 E21E 
6E 0 E216 
76 0 EF6B 
7E 0 E1B9 
86 0 E26B 
8E 0 E082 
96 0 E188 
9E 0 E211 
fl6 0 E2DE 
0 Elft5 
B6 0 F674 
BE 0 E2E0 
C6 0 E026 
CE 0 E047 
D6 0 

DE 0 F128 
E6 0 E0fi6 
EE 0 E1F9 
F6 0 E1E6 
FE 0 E12D 


07 0 E08fl 
0F 0 E222 
17 0 E124 
IF 0 E212 
27 0 E1E9 
2F 0 E0fl2 
27 0 E262 
2F 0 E1D5 
47 0 E1C8 
4F 0 E002 
57 0 E046 
5F 0 E8D7 
67 0 ED90 
6F 0 E882 
77 0 EC2B 
7F 0 E0B2 
87 0 E476 
re 0 EC47 
97 0 FFft2 
9F 0 F49B 
fl7 0 E452 
ftF 0 E22D 
B7 0 F6B9 
BF 0 E020 
C7 0 E75C 
CF 0 E056 
D7 0 E715 
DF 0 F6fll 
E7 0 E0fiE 
EF 0 E14C 
F7 0 E0D1 
FF 0 E0C2 


NEWSLETTER EDITOR 
ROCKWELL INTERNATIONAL 
P.O. Box 3669, RC55 
Anaheim, CA 92803 U.S.A. 




